Sub ׸2()

    Dim ǹĳ As PivotCache

    On Error Resume Next
    
    For Each ǹĳ In ThisWorkbook.PivotCaches
    
        ǹĳ.MissingItemsLimit = xlMissingItemsNone
        ǹĳ.Refresh
    
    Next
    
End Sub